home *** CD-ROM | disk | FTP | other *** search
/ PCMania 39 / PCMania CD39_2.iso / ar2demo / accuspan.inf < prev    next >
INI File  |  1995-11-22  |  15KB  |  486 lines
  1. ;;Modified 8/25/93 SD
  2.  
  3. Do Setup
  4.  
  5.  
  6.  
  7. ;; Source directory, used to check version
  8. [Dir10] := [InstallFromDirectory]
  9. [String10] := 2.1
  10.  
  11. ;;QueFiles to [Dir10] Thermometer NoInterruption Quietly NoInsertionPrompt
  12. ;;    *.ver
  13. ;;EndQueFiles
  14.  
  15. ;;GetQuedFiles NoThermometer Quietly
  16. If FileExists [Dir10]\product.ver ;;(
  17.     Dialog
  18.       .cA punto de instalar AccuRender 2.
  19.         .cRenderizado y animación por ray-tracing
  20.         .cpara AutoCAD Release 12 y 13.
  21.       .c 
  22.       .cVersión [String10]
  23.     EndDialog
  24. Else
  25.     If FileExists [Dir10]\educ.ver ;;(
  26.         Dialog
  27.           .cA punto de instalar AccuRender 2 Educación.
  28.             .cRenderizado y animación por ray-tracing
  29.             .cpara AutoCAD Release 12 y 13.
  30.           .c 
  31.           .cVersión educativa [String10]
  32.         EndDialog
  33.     Else
  34.         If FileExists [Dir10]\eval.ver ;;(
  35.             Dialog
  36.               .cA punto de instalar AccuRender 2 Evaluación.
  37.                 .cRenderizado y animación por ray-tracing
  38.                 .cpara AutoCAD Release 12 y 13.
  39.               .c 
  40.               .cVersión evaluación [String10]
  41.             EndDialog
  42.         Else
  43.             If FileExists [Dir10]\update.ver ;;(
  44.                 Dialog
  45.                   .cA punto de instalar AccuRender 2 Renovación.
  46.                     .cRenderizado y animación por ray-tracing
  47.                     .cpara AutoCAD Release 12 y 13.
  48.                   .c 
  49.                   .cRenovación versión [String10]
  50.                 EndDialog
  51.             Else
  52.                 Dialog
  53.                   .cA punto de instalar AccuRender 2 Demostración.
  54.                     .cRenderizado y animación por ray-tracing
  55.                     .cpara AutoCAD Release 12 y 13.
  56.                   .c 
  57.                   .cVersión Demostración [String10]
  58.                 EndDialog
  59.             EndIf ;;)
  60.         EndIf ;;)
  61.     EndIf ;;)
  62. EndIf ;;)
  63.  
  64. Do Install
  65.  
  66. If FileExists [InstallationDirectory]\Demo.ver ;;(
  67.     Dialog
  68.       .cInstalación de AccuRender 2 Demo terminada.
  69.         .c 
  70.         .cConsulte el capítulo "Conceptos básicos" del manual de AccuRender 2 Demo 
  71.         .csobre instrucciones para cargar y ejecutar la versión Demostración.
  72.  
  73.         .cPara adquirir AccuRender 2,
  74.         .ccomplete el formulario adjunto,
  75.         .co contacte con su distribuidor local de AccuRender.    
  76. EndDialog
  77. Else
  78. Do PGPfile
  79.     If FileExists [InstallationDirectory]\lock.ver ;;(
  80.         Dialog
  81.             .cInstalación de AccuRender terminada.
  82.             .cAsegúrese de que el dispositivo de protección está firmemente
  83.             .cconectado al puerto paralelo de su ordenados. 
  84.             .cConsulte el capítulo "Conceptos básicos" del manual de AccuRender 2 
  85.             .csobre instrucciones para cargar y ejecutar AccuRender.
  86.  
  87.             .c******     Usuarios de AccuRender 1.1  *******
  88.             .cAsegúrese de cargar el nuevo fichero ejecutable de AccuRender 2:
  89.             .c
  90.             .cAccuRender 2 se instala en el directorio ACCUREN2 directory.
  91.             .cAccuRender 1.1 aún puede estar instalado en su ordenador.
  92.             .c
  93.             .cVerifique que el archivo que se carga en el letrero de diálogo
  94.             .c"Carga de Aplicaciones" es el ejecutable de AccuRender del
  95.             .cdirectorio ACCUREN2.
  96.             .c*******************************************
  97.  
  98.             AccuRender 
  99.             (c) 1993-94 Roy Hirshkowitz.
  100.             AccuRender es marca registrada de Robert McNeel and Associates.
  101.             AutoCAD es marca registrada de Autodesk, Inc.
  102.         EndDialog
  103.  
  104.     Else
  105.         Dialog
  106.             .cInstalación de AccuRender terminada.
  107.             .c
  108.             .cConsulte el capítulo "Conceptos básicos" del manual de AccuRender 2 
  109.             .csobre instrucciones para cargar y ejecutar AccuRender.
  110.  
  111.             .c******     Usuarios de AccuRender 1.1  *******
  112.             .cAsegúrese de cargar el nuevo fichero ejecutable de AccuRender 2:
  113.             .c
  114.             .cAccuRender 2 se instala en el directorio ACCUREN2 directory.
  115.             .cAccuRender 1.1 aún puede estar instalado en su ordenador.
  116.             .c
  117.             .cVerifique que el archivo que se carga en el letrero de diálogo
  118.             .c"Carga de Aplicaciones" es el ejecutable de AccuRender del
  119.             .cdirectorio ACCUREN2.
  120.             .c*******************************************
  121.  
  122.             AccuRender 
  123.             (c) 1993-94 Roy Hirshkowitz.
  124.             AccuRender es marca registrada de Robert McNeel and Associates.
  125.             AutoCAD es marca registrada de Autodesk, Inc.
  126.         EndDialog
  127.     EndIf
  128. EndIf
  129.  
  130. ;;----------------------------------------------------------------------------
  131. Procedure Install
  132.  
  133.   DetermineInstallationDrive ;;RequireFixed ;;;QueSize
  134. If FileExists [Dir10]\Demo.ver ;;(
  135.   DetermineInstallationDirectory InstallationDrive:\ar2demo QueSize RequireFixed
  136. Else
  137.   DetermineInstallationDirectory InstallationDrive:\accuren2 QueSize RequireFixed
  138. EndIf ;;)
  139.  
  140.     If FileExists [InstallationDirectory]\Accurend.mlb ;;(
  141.         Dialog [YesOrNo1]
  142.             .cYa existe el directorio [InstallationDirectory].
  143.             .cEl archivo ACCUREND.MLB se renombrará como ACCUOLD.MLB.
  144.             .cTodos los archivos restantes en [InstallationDirectory] serán borrados.
  145.             .c
  146.             .cSi dispone de archivos personalizados en [InstallationDirectory],
  147.             .c pare ahora y cópielos a un lugar seguro.
  148.             .c 
  149.             .c¿Desea continuar con la instalación?
  150.         EndDialog
  151.         If [YesOrNo1] = N ;;(
  152.             Exit
  153.         Else
  154.             If FileExists [InstallationDirectory]\ACCUREND.MLB ;;(
  155.                 If FileExists [InstallationDirectory]\ACCUOLD.MLB ;;(
  156.                     DeleteFiles from [InstallationDirectory] Quietly
  157.                         ACCUOLD.MLB
  158.                     EndDeleteFiles
  159.                 EndIf
  160.                 RenameFile [InstallationDirectory]\ACCUREND.MLB to ACCUOLD.MLB
  161.             EndIf ;;)
  162.             If FileExists [InstallationDirectory]\*.MDX ;;(
  163.                 DeleteFiles from [InstallationDirectory] Quietly
  164.                     *.MDX
  165.                 EndDeleteFiles
  166.             EndIf ;;)
  167.             If FileExists [InstallationDirectory]\*.PLX ;;(
  168.                 DeleteFiles from [InstallationDirectory] Quietly
  169.                     *.PLX
  170.                 EndDeleteFiles
  171.             EndIf ;;)
  172.             If FileExists [InstallationDirectory]\ACCUREND.LSP ;;(
  173.                 DeleteFiles from [InstallationDirectory] Quietly
  174.                     ACCUREND.LSP
  175.                 EndDeleteFiles
  176.             EndIf ;;)
  177.         EndIf ;;)
  178.     Else
  179.         CreateDirectoryifNecessary [InstallationDirectory]
  180.     EndIf ;;)
  181. ;;Decide the platforms to install and set platform variables
  182.  
  183.  
  184. QueFileGroup 1 ;;Files for DOS platforms
  185. QueFileGroup 2 ;;Files for Windows platforms
  186. QueFileGroup 3 ;;Common Files for both platforms
  187.  
  188. ;;ask if you want the all materials or a shortened version
  189. If FileExists [Dir10]\Demo.ver ;;(
  190.     QueFileGroup 4
  191. Else
  192.     GetMenuChoice
  193.         Instalar todos los materiales
  194.             ;Opción por defecto:
  195.             ;Instala más de 350 materiales para usar con AccuRender.
  196.             ;Se requieren 14 MB libres de disco duro.
  197.         Instalar lista limitada de materiales
  198.             ;Segunda Opción:
  199.             ;Instala 80 materiales para usar con AccuRender.
  200.             ;Se requieren 4 MB libres de disco duro.
  201.     EndGetMenuChoice
  202.  
  203. ;;Process answer    
  204.     InCase Choice is
  205.         = 1: QueFileGroup 5 ;;Large Materials File
  206.         = 2: QueFileGroup 4 ;;Short Materials File
  207.     EndInCase
  208. EndIf ;;)
  209.     
  210. GetQuedFiles
  211.     
  212. ;;AccuRender order form, demo version only.
  213. If FileExists [InstallFromDrive]:\order.frm ;;(
  214.     CopyFiles from [InstallFromDrive]:\ to [InstallationDirectory] Quietly
  215.         order.frm
  216.     EndCopyFiles
  217. EndIf ;;)
  218.  
  219. If FileExists [InstallationDirectory]\*.mdx ;;(
  220.     DeleteFiles from [InstallationDirectory] Quietly
  221.         *.mdx
  222.     EndDeleteFiles
  223. Endif ;;)
  224.     
  225. If FileExists [InstallationDirectory]\*.plx ;;(
  226.     DeleteFiles from [InstallationDirectory] Quietly
  227.         *.plx
  228.     EndDeleteFiles
  229. Endif ;;)
  230.     
  231. ;;Modify the ACCUREND.ini file
  232. If FileExists [InstallationDirectory]\ACCUREND.INI ;;(
  233.     ExamineTextFile  [InstallationDirectory]\ACCUREND.INI
  234.         [Number1] := LineNumberWith (MAPPATH,=,)
  235.         [String1] := LineWith (MAPPATH,=,)
  236.     ForgetTextFile
  237.  
  238.     [Number11] := 0
  239.     [String6] := [InstallationDirectory]
  240.  
  241.     If [String1] <> BlankString    ;;(            There is a SET MAPPATH line
  242.         ;;{
  243.         [YesOrNo4] := Y
  244.         [Number3] := LengthOf [String1]
  245.         [Number4] := PositionOf = in [String1]
  246.         IncrementNumber [Number4]
  247.         IncrementNumber [Number4]
  248.         ;; Get environment string for MAPPATH= (string 3)
  249.         ;; If number4 is greater than string length, mappath =
  250.         If [Number4] < [Number3] ;;(
  251.             [String3] := SubstringOf [String1] from [Number4] to [Number3]
  252.         Else
  253.             [String3] := $empty$
  254.         EndIf ;;)
  255.  
  256.         [Number3] := LengthOf [String3]   ;;   Length of MAPPATH= after the =
  257.  
  258.         If [String3] Contains [String6]     ;;( SET MAPPATH line contains current Accurend= string
  259.             [String9] := N
  260.         Else
  261.             ;; mappath =
  262.             If [String3] = $empty$ ;;(
  263.                 [String9] := mappath=[InstallationDirectory];
  264.             Else  ;; mappath has a value append it
  265.                 [String9] := mappath=[InstallationDirectory];[String3]
  266.             EndIf ;;)
  267.         EndIf ;;)
  268.     EndIf ;;)
  269.  
  270.     If [String9] <> N ;;(
  271.         ModifyTextFile [InstallationDirectory]\ACCUREND.INI Quietly NoBackup
  272.             AddOrChangeLineWith (MAPPATH,=,) As "[String9]" At Beginning
  273.         EndModifyTextFile
  274.     EndIf ;;)
  275. EndIf ;;)
  276.     
  277.  
  278. EndProcedure
  279.  
  280. ;;----------------------------------------------------------------------------
  281. Procedure PGPfile
  282.     GetMenuChoice ;; @xy(Center,9)
  283.         Modicar archivo ACAD.PGP
  284.             ; Se modifica el archivo ACAD.PGP para instalar las
  285.             ; órdenes de inicio de AccuRender's. Esta es la mejor opción.
  286.         Crear archivo ACCUREND.PGP
  287.             ; Crea un archivo de ejemplo ACCUREND.PGP en el directorio
  288.             ; de AccuRender.      
  289.         Salir
  290.             ; Ignora los cambios, AccuRender no funcionará correctamente
  291.             ;  
  292.             ;  
  293.     EndGetMenuChoice
  294.  
  295. ;;Process answer    
  296.     InCase Choice is
  297.         = 1:
  298.                 Do SetEnv
  299.         = 2:
  300.                 Do MakePGPFile
  301.     EndInCase
  302.  
  303. EndProcedure
  304.  
  305. ;;----------------------------------------------------------------------------
  306. Procedure SetEnv
  307.     
  308. [String11] := N
  309. [String12] := N
  310.     GetMenuChoice
  311.         ¿Dispone de AutoCAD para Windows?
  312.             ;Usar en caso de disponer solamente de AutoCAD para Windows.
  313.         ¿Dispone de AutoCAD para DOS?
  314.             ;Usar en caso de disponer solamente de AutoCAD para DOS.
  315.         ¿Dispone de AutoCAD para Windows y DOS?
  316.             ;Usar si dispone de ambas versiones.
  317.     EndGetMenuChoice
  318.  
  319. ;;Process answer    
  320.     InCase Choice is
  321.         = 1: 
  322.             [String11] := Y
  323.         = 2: 
  324.             [String12] := Y
  325.         = 3: 
  326.             [String11] := Y
  327.             [String12] := Y
  328.     EndInCase
  329.  
  330.     [Point2]
  331.  
  332.     If [String11] = Y ;;(
  333.         [Dir1] := C:\ACADWIN\SUPPORT
  334.         Dialog [Dir1] 44
  335.             .cIndicar el lugar donde está
  336.             .cel archivo PGP de AutoCAD para Windows, 
  337.             .cpara poder modificarlo.
  338.  
  339.             .cNormalmente el archivo ACAD.PGP está
  340.             .cen el directorio de soporte de AutoCAD,
  341.             .co en el directorio con el archivo
  342.             .cde menú.
  343.  
  344.             Ruta de AutoCAD:
  345.         EndDialog
  346.  
  347.  
  348.  
  349.         [String4] := [Dir1]\ACAD.PGP ...
  350.         [YesOrNo3] := N
  351.         [String13] := playflc,c:\command.com /c [InstallationDirectory]\dfv,0,*Flic File: ,0
  352.         If FileExists [Dir1]\ACAD.PGP ;; Check for Release 12 support file ;;(
  353.             ModifyTextFile [Dir1]\ACAD.PGP
  354.                 AddOrChangeLineWith (playflc,c,) as "[String13]" at beginning
  355.                 AddOrChangeLineWith (si,*ar$_save,) as "si,      *ar_save" at beginning
  356.                 AddOrChangeLineWith (library,*ar$_library,) as "library, *ar$_library" at beginning
  357.                 AddOrChangeLineWith (mat,*ar$_material,) as "mat,     *ar$_material" at beginning
  358.                 AddOrChangeLineWith (lights,*ar$_lights,) as "lights,  *ar$_lights" at beginning
  359.                 AddOrChangeLineWith (setup,*ar$_setup,) as "setup,   *ar$_setup" at beginning
  360.                 AddOrChangeLineWith (env,*ar$_env,) as "env,     *ar$_env" at beginning
  361.                 AddOrChangeLineWith (tr,*ar$_tr_entire,) as "tr,      *ar$_tr_entire" at beginning
  362.                 AddOrChangeLineWith (trss,*ar$_tr_ss,) as "trss,    *ar$_tr_ss" at beginning
  363.                 AddOrChangeLineWith (rt,*ar$_render_entire,) as "rt,      *ar$_render_entire" at beginning
  364.                 AddOrChangeLineWith (rtw,*ar$_render_window,) as "rtw,     *ar$_render_window" at beginning
  365.                 AddOrChangeLineWith (quick,*ar$_quick,) as "quick,   *ar$_quick" at beginning
  366.                 AddOrChangeLineWith (;AccuRender,command,line,shortcuts.,) as ";AccuRender command line shortcuts." at beginning
  367.             EndModifyTextFile
  368.         ELSE
  369.             [String4] := [Dir1]\ACAD.PGP...
  370.             Dialog [YesOrNo3]
  371.                 .cNo se encuentra [String4].
  372.                 .cAsegurarse de que el directorio indicado
  373.                 .ccontiene un archivo ACAD.PGP
  374.                 .c¿Intentar de nuevo?
  375.             EndDialog
  376.         ENDIF ;;)
  377.         
  378.         If [YesOrNo3] = Y ;;(
  379.             Goto [Point2]
  380.         EndIf ;;)
  381.     EndIf ;;)
  382.  
  383.     [Point3]
  384.  
  385.     If [String12] = Y ;;(
  386.         [Dir1] := C:\ACAD\SUPPORT
  387.     Dialog [Dir1] 44
  388.         .cIndicar el lugar donde está
  389.         .cel archivo PGP de AutoCAD para Windows, 
  390.         .cpara poder modificarlo.
  391.  
  392.         .cNormalmente el archivo ACAD.PGP está
  393.         .cen el directorio de soporte de AutoCAD,
  394.         .co en el directorio con el archivo
  395.         .cde menú.
  396.  
  397.         Ruta de AutoCAD:
  398.     EndDialog
  399.  
  400.     [String4] := [Dir1]\ACAD.PGP ...
  401.     [YesOrNo3] := N
  402.     [String13] := playflc,c:\command.com /c [InstallationDirectory]\dfv,0,*Flic File: ,0
  403.     If FileExists [Dir1]\ACAD.PGP ;; Check for Release 12 support file ;;(
  404.         ModifyTextFile [Dir1]\ACAD.PGP
  405.                 AddOrChangeLineWith (playflc,c,) as "[String13]" at beginning
  406.                 AddOrChangeLineWith (si,*ar$_save,) as "si,      *ar_save" at beginning
  407.                 AddOrChangeLineWith (library,*ar$_library,) as "library, *ar$_library" at beginning
  408.                 AddOrChangeLineWith (mat,*ar$_material,) as "mat,     *ar$_material" at beginning
  409.                 AddOrChangeLineWith (lights,*ar$_lights,) as "lights,  *ar$_lights" at beginning
  410.                 AddOrChangeLineWith (setup,*ar$_setup,) as "setup,   *ar$_setup" at beginning
  411.                 AddOrChangeLineWith (env,*ar$_env,) as "env,     *ar$_env" at beginning
  412.                 AddOrChangeLineWith (tr,*ar$_tr_entire,) as "tr,      *ar$_tr_entire" at beginning
  413.                 AddOrChangeLineWith (trss,*ar$_tr_ss,) as "trss,    *ar$_tr_ss" at beginning
  414.                 AddOrChangeLineWith (rt,*ar$_render_entire,) as "rt,      *ar$_render_entire" at beginning
  415.                 AddOrChangeLineWith (rtw,*ar$_render_window,) as "rtw,     *ar$_render_window" at beginning
  416.                 AddOrChangeLineWith (quick,*ar$_quick,) as "quick,   *ar$_quick" at beginning
  417.                 AddOrChangeLineWith (;AccuRender,command,line,shortcuts.,) as ";AccuRender command line shortcuts." at beginning
  418.         EndModifyTextFile
  419.     ELSE
  420.         [String4] := [Dir1]\ACAD.PGP...
  421.         Dialog [YesOrNo3]
  422.             .cNo se encuentra [String4].
  423.             .cAsegurarse de que el directorio indicado
  424.             .ccontiene un archivo ACAD.PGP
  425.             .c¿Intentar de nuevo?
  426.         EndDialog
  427.     ENDIF ;;)
  428.  
  429.     If [YesOrNo3] = Y ;;(
  430.         Goto [Point3]
  431.     EndIf ;;)
  432. EndIf ;;)
  433.     
  434. EndProcedure
  435. ;;----------------------------------------------------------------------------
  436. Procedure MakePGPFile
  437.          AppendFile [InstallationDirectory]\ACCUREND.PGP
  438.             ;AccuRender command line shortcuts.
  439.         si,                *ar$_save
  440.         library,    *ar$_library
  441.         mat,            *ar$_material
  442.         lights,        *ar$_lights
  443.         setup,        *ar$_setup
  444.                 env,            *ar$_env
  445.                 tr,                *ar$_tr_entire
  446.                 trss,            *ar$_tr_ss
  447.                 rt,                *ar$_render_entire
  448.                 rtw,            *ar$_render_window
  449.                 quick,        *ar$_quick
  450.         EndAppendFile
  451. EndProcedure
  452. ;;----------------------------------------------------------------------------
  453. Procedure abort
  454.     Dialog
  455.         .cAccurender may not run properly,
  456.     EndDialog
  457. EndProcedure
  458.  
  459. ;;----------------------------------------------------------------------------
  460. Procedure Setup  ;;{
  461.  
  462. If Windows
  463.  SetBackgroundCharTo B0
  464.   SetShadowAttrTo LightGrayOnDarkGray
  465.   SetScreenAttrTo WhiteOnBlue
  466.   SetPopupAttrTo WhiteOnBlue
  467.   SetDefaultBitmap off
  468.   SetTopLineTo "                 Robert McNeel and Associates, Seattle, WA                  "
  469.   ClearScreen
  470. Else
  471.   SetBackgroundCharTo B0
  472.   SetShadowAttrTo LightGrayOnDarkGray
  473.   SetScreenAttrTo WhiteOnBlue
  474.   SetPopupAttrTo WhiteOnBlue
  475.   SetTopLineAttrTo WhiteONBlue
  476.   SetBottomLineAttrTo WhiteONBlue
  477.   SetTopLineTo "                 Robert McNeel and Associates, Seattle, WA                  "
  478. ;;    SetBottomLineTo "Pulsar <Ctrl+X> para salir.  Si necesita ayuda, consulte a su distribuidor "
  479.   ClearScreen
  480. EndIf ;;)
  481. EndProcedure  ;;} Setup
  482. ;;----------------------------------------------------------------------------
  483. EndScript
  484.  
  485. 
  486.